50 FORX=0TO39:L$=L$+"[164]":NEXT
52 :
60 :
100 PRINT"[147][217]OU MAY LOOK AT [204]OADSTAR ORDERING "
102 PRINT"INFORMATION ON THE SCREEN OR THE  "
104 PRINT"PRINTER.":PRINT
200 PRINT" [201]F YOU CHOOSE PRINTER, YOU'RE PRINTER"
202 PRINT"WILL PRINT AN ORDER FORM.":PRINT:PRINT
300 PRINT"[211]CREEN OR [208]RINTER (S/P)":POKE198,0:WAIT198,1:GETZ$
400 IFZ$<>"S"ANDZ$<>"P"THEN300
500 IFZ$="S"THEN5500
600 INPUT"[147][206]AME    :";N$
700 INPUT"[193]DDRESS :";A1$
800 INPUT"[195]ITY    :";C$
900 INPUT"[211]TATE   :";S$
1000 INPUT"[218]IP     :";Z$
1050 PRINT"[147][208]LEASE TURN YOUR PRINTER ON AND PUT"
1052 PRINT"THE PAPER AT THE TOP OF A PAGE."
1054 PRINT:PRINT"[208]RESS A KEY WHEN YOU ARE READY TO PRINT.":POKE198,0:WAIT198,1
1100 OPEN4,4,7:CMD4
1200 PRINT"                             [204][207][193][196][211][212][193][210]"
1300 PRINT"                          [208].[207]. [194]OX 30007"
1400 PRINT"                     [211]HREVEPORT [204][193]  71130-0007":PRINT
1500 PRINT"                            [207][210][196][197][210] [194][204][193][206][203]"
1600 PRINT
1700 READA$:IFA$="END"THEN1950
1800 PRINTA$
1900 GOTO1700
1950 C$=C$+", "+S$+"   "+Z$
1960 IFN$=""THENN$=L$:A1$=L$:C$=L$
2000 PRINT"[206]AME            :"N$:PRINT
2100 PRINT"[193]DDRESS         :"A1$:PRINT
2200 PRINT"[195]ITY/[211]TATE/[218]IP  :"C$:PRINT
2400 PRINT
2402 PRINT"        [198]OR DISKETTE ORDERS, USE YOUR [213][208][211] DELIVERY ADDRESS."
2500 PRINT"                 [193][204][204] [208][210][201][195][197][211][160][201][206][195][204][213][196][197][160][211][200][201][208][208][201][206][199][160][195][200][193][210][199][197][211]"
2600 PRINT:PRINT:PRINT:PRINT#4:CLOSE4
2700 GOTO7900
2800 DATA" [193] NEW ISSUE OF [204][207][193][196][211][212][193][210] IS PUBLISHED EVERY MONTH.  [200]OWEVER, [204][207][193][196][211][212][193][210]
2900 [131]"DOES NOT BECOME DATED MATERIAL.  (null)HE PROGRAMS ON (null)(null)ATNSTR$(null)(null)ATN(null) HAVE PERMANENT
3000 DATA"VALUE.  [217]OU WILL WANT THE COMPLETE [204][207][193][196][211][212][193][210] COLLECTION.  [193]LL PAST ISSUES
3100 [131]"STARTING WITH NUMBER 1 ARE STILL AVAILABLE FOR $9.95 EACH."
3200 [131]" (null)RDER THREE OR MORE AND TAKE ONE DOLLAR OFF EACH ISSUE.  (null)RDER SIX OR
3300 DATA"MORE AND TAKE TWO DOLLARS OFF EACH ISSUE.",
3400 DATA" [211]END ME THE FOLLOWING ISSUE NUMBERS [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] ,"
3500 DATA"[164][164][164] , [164][164][164] AT  $[164][164][164][164][164][164] EACH."
3600 DATA" "
3700 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
3800 DATA,
3900 DATA" [211][207][198][212][196][201][211][203] DISKETTES ARE DOUBLE DENSITY AND PUNCHED SO THAT THEY CAN BE
4000 [131]"USED ON BOTH SIDES.  (null)(null)ASC(null)STR$RIGHT$(null)(null) DISKETTES COME FULLY PACKAGED IN BOXES OF
4100 DATA"10 WITH WRITE PROTECT TABS AND LABELS.  [211][207][198][212][196][201][211][203] DISKETTES SELL FOR
4200 [131]"$1.60 EACH.  ATNT THAT PRICE WE REQUIRE THAT YOU ORDER A MINIMUM OF 50 OR
4300 DATA"A MULTIPLE OF 50.",
4400 DATA"            [164][164][164][164][164][164]  50 AT $1.60 EACH = $ 80"
4500 DATA"            [164][164][164][164][164][164] 100 AT $1.60 EACH = $160"
4600 DATA"            [164][164][164][164][164][164] 150 AT $1.60 EACH = $240"
4700 DATA"            [164][164][164][164][164][164] 200 AT $1.60 EACH = $320"
4800 DATA" "
4900 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
5000 DATA,
5002 DATA"  [212]HE [210]ICH AND [198]AMOUS [196]ISK SERIES IS NOW AVAILABLE.  [197]ACH DISK COSTS"
5004 DATA"$16.95.  [215]HEN YOU ORDER, YOU WILL RECEIVE A DOUBLE-SIDED DISK FULL OF
5008 [131]"PROGRAMS WHICH ARE WRITTEN BY ONE PERSON.  (null)HESE PROGRAMS MAY DEAL
5010 DATA"WITH A CERTAIN THEME OR THEY MAY BE A COLLECTION OF DIFFERENT PROGRAMS.
5014 [131]"(null)ICH AND ASCAMOUS DISKS ARE A GREAT BUY.  (null)RDER YOURSELF SOME COPIES
5018 DATA"TODAY."
5020 DATA" "
5022 DATA"            [164][164][164][164][164][164] [211]IGN [208]AINTER     [164][164][164][164][164][164] [215]ARP +",
5025 DATA,"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
5026 DATA,
5028 DATA"[199][210][193][206][196] [212][207][212][193][204]: $[164][164][164][164][164][164]",
5100 DATA"              [164][164] [195]HECK    [164][164] [214][201][211][193]     [164][164] [205][193][211][212][197][210] [195][193][210][196]"
5200 DATA,
5300 DATA"[195]ARD #  :[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]         [197]XP DATE: [164][164] / [164][164] / [164][164]"
5400 DATA,,"END"
5500 PRINT"[147]"
5600 PRINT" [193] NEW ISSUE OF [204][207][193][196][211][212][193][210] IS PUBLISHED ":PRINT
5700 PRINT"EVERY MONTH.  [200]OWEVER, [204][207][193][196][211][212][193][210] DOES ":PRINT
5800 PRINT"NOT BECOME DATED MATERIAL.  [212]HE ":PRINT
5900 PRINT"PROGRAMS ON [204][207][193][196][211][212][193][210] HAVE PERMANENT":PRINT
6000 PRINT"VALUE.  [217]OU WILL WANT THE COMPLETE":PRINT
6100 PRINT"[204][207][193][196][211][212][193][210][160]COLLECTION.  [193]LL PAST ISSUES":PRINT
6200 PRINT"STARTING WITH NUMBER 1 ARE STILL":PRINT
6300 PRINT"AVAILABLE FOR $9.95 EACH.":PRINT
6400 PRINT" [207]RDER 3 OR MORE AND TAKE ONE DOLLAR":PRINT
6500 PRINT"OFF EACH ISSUE.  [207]RDER 6 OR MORE AND ":PRINT
6600 PRINT"TAKE TWO DOLLARS OFF EACH ISSUE.":PRINT
6700 PRINT"        <PRESS A KEY FOR MORE>"
6800 POKE198,0:WAIT198,1:GETZ$
6900 PRINT"[147]"
7000 PRINT" [211][207][198][212][196][201][211][203] DISKETTES COME FULLY PACKAGED":PRINT
7100 PRINT"AND DOUBLE PUNCHED FOR USE ON BOTH ":PRINT
7200 PRINT"SIDES.  [211][207][198][212][196][201][211][203] DISKS SELL FOR $1.60":PRINT
7300 PRINT"EACH.  [193]T THIS PRICE WE REQUIRE THAT":PRINT
7400 PRINT"YOU ORDER A MINIMUM OF 50 OR A MULTIPLE":PRINT
7500 PRINT"OF 50.":PRINT:PRINT
7600 PRINT"  [214][201][211][193], [205][195], [205][207], AND CHECK ACCEPTED.":PRINT:PRINT
7700 PRINT"       <PRESS 'S' TO VIEW AGAIN>"
7800 POKE198,0:WAIT198,1:GETZ$:IFZ$="S"THEN5500
7900 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN":POKE631,13:POKE632,13
8000 POKE198,2:END